10 REM COPYRIGHT 1990 COMPUTE! PUBLICATIONS, INC. - ALL RIGHTS RESERVED
20 POKE55,0:POKE56,PEEK(46)+4:CLR:PRINT"[147][159]"TAB(9)"ONE MOMENT, PLEASE..."
30 POKE53280,0:POKE53281,0:POKE650,128:DIMA(70)
40 FORZ=0TO9:A(Z+48)=Z:A(Z+61)=Z+6:NEXT:FORZ=1TO7:READB:NEXT
50 FORZ=49152TO49879:READA$:Q=16*A(ASC(A$))+A(TTE STR$ISK OFTEN"
80 [153]" FEATURES PROGRAMS WHICH WRITE DATA"
90 [153]" TO THE DISK. LENOPY THOSE PROGRAMS TO"
100 [153]" ANOTHER DISK - THIS DISK IS WRITE"
110 [153]" PROTECTED."
120 [153]"      (null)(null)VAL(null)(null) ATN(null)(null) (null)VAL(null) ASC(null)(null) (null)LEFT$VAL (null)VAL(null)(null)"
130 [161]MT$:[139]MT$[178]""[167]130
140 [142]
150 [151]53282,8:[151]53283,1:[151]53284,6:[151]53280,15:[151]53281,15
155 [153]"LOAD":[153][163]12)"JUST A MOMENT..."
160 [141]530
170 SP$[178]"                                      "
180 A$[178]"TABLE OF CONTENTS FOR "[170]MO$[170]" 1990":CX[178]21[171][195](A$)[173]2
190 Z$[178]"":A$[178][200](SP$,CX)[170]A$[170]SP$:[129]I[178]1[164]40
200 Z$[178]Z$[170][199]([198]([202](A$,I))[170]128):[130]
210 NP[178][181](IT[173]8):CP[178]0
220 [141]20
230 [151]53265,[194](53265)[176]64
240 [151]53280,15:[151]53281,15
250 [153]"LOADRETURNSTOP----------------------------------------";
260 [153]"CLOSECLOSECLOSECLOSELEN(null)(null)(null)(null)(null)VALGETTHEN(null)CLOSECHR$ATN(null)VAL(null)(null)VALCLOSEASC(null)(null)CLOSE(null)LEFT$VALCLOSE>=FRECLOSECLOSECLOSECLOSECLOSE";Z$;
270 [153]"CLOSECLOSECLOSENOTLENSTEPCLOSE>POSPOSORCLOSELEN(null)(null)(null)(null)(null)VALGETCLOSE(null)(null)PEEK(null)RIGHT$LENATN(null)RIGHT$(null)(null)(null)*RIGHT$(null)LEN^CLOSECLOSECLOSE";
280 [153]"WAITSTOP----------------------------------------";
290 S[178]CP[172]8:E[178]CP[172]8[170]7:[139]E[177]IT[167]E[178]IT
300 [129]I[178]S[164]E:[153]"CLOSE";[199](177[170]I[171]CP[172]8);"CLOSEPOKE";N$(I);
310 [153][200](SP$,36[171][195](N$(I)));
320 [153]"WAITSTOP----------------------------------------";
330 [130]
340 [139]NP[170]1[178]1[167]XZ[178]1
350 [153]"(null)(null)VAL(null)(null)CLOSE>/FRECLOSE(null)(null)CLOSE(null)(null)ATNSTR$CLOSELEN(null)(null)(null)VAL(null)(null)(null)(null)STR$RIGHT$(null)CHR$CLOSE(null)(null)(null)CHR$(null)ATN(null)CLOSE":[139]XZ[178]1[167]380
360 [153]"THIS IS PAGE #";CP[170]1;"OF";NP[170]1
370 [153]"PRESS (null)VAL(null)(null)(null)(null)WAIT FOR NEXT PAGE"
380 [161]A$:[139]A$[179][177][199](13)[175](A$[179]"1"[176]A$[177]"8")[167]380
390 [139]XZ[178]1[175]A$[178][199](13)[167]380
400 [139]XZ[178]1[167]430
410 [139]A$[178][199](13)[167]CP[178]CP[170]1:[139]CP[177]NP[167]CP[178]0
420 [139]A$[178][199](13)[167]230
430 FV[178]([198](A$)[171]48):FV[178]FV[170]7[172](FV[177]8)
440 C[178]FV[170]CP[172]8[171]1:[139]C[177]IT[167]380
450 [151]53265,27:[158]65409
455 [151] 53280,15:[151]53281,15
460 [153]"RETURNLISTLOAD";[199](34);F$(C);[199](34);",8":I$[178]"RUN"
470 [129]I[178]1[164][195](I$):[151]842[170]I,[198]([202](I$,I)):[130]
480 [151]53280,15:[151]53281,15:[153]"";
490 [153][163]18[171][195](F$(C))[173]2[171]4)"LOADING ";[199](34)F$(C)[199](34)
500 [153]"           PLEASE STAND BYLIST"
510 [151]842[170]I,13:[151]842[170]I[170]1,154:[151]842,13:[151]208,I[170]1:[128]
520 [128]
530 [159]15,8,15,"I0"
540 [159]1,8,8,"0:128 CONTENTS,S,R":[132]15,EN,EM$:[139] EN[177]0 [167] 580
550 [132]1,MO$:[132]1,IT:[134]N$(IT),F$(IT)
560 [129]I[178]0[164]IT:[132]1,N$(I):[132]1,F$(I):[130]
570 [160]1:[160]15:[142]
580 [160]1:[160]15
590 [153]"LOADLENAN'T READ (null)ABLE OF LENONTENTS"
600 [153]"STR$ISK VALRROR:";EN;EM$
610 [153]"LENHECK:"
620 [153]"1) LENORRECT DISK INSERTED?
630 PRINT"2) [201]S DRIVE DOOR CLOSED?
640 [153]"3) ATNLL CABLES ATTACHED?"
650 [153]"(null)EMOVE, THEN RE-INSERT DISK, PRESS ANY  KEY TO TRY AGAIN."
660 [161]A$:[139]A$[178]""[167]660
670 [138]